home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SFCONSET.SDA / SF CON SET (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  29.0 KB  |  1,001 lines
  1. 0 SYS49152
  2. 1 DIMWR$(34):DIMWX%(34):DIMWY%(34):DIMWP%(34):DIMWS%(34):DIMWE%(34):DIMWA%(34)
  3. 5 DIMWO$(34):DIMFL$(300):DIMFA%(300):DIMFS%(300):DIMFY%(300)
  4. 10 DIMFC$(300):DIMFC%(300):DIMFX%(300):DIMOW%(34,13):DIMEM$(12)
  5. 15 EM$(0)="[198]ERENGI":EM$(1)="[201]ZENCONIOID":EM$(2)="[210]OMULAN":EM$(3)="[203]LINGON"
  6. 20 EM$(4)="[214]ASSARIAN":EM$(5)="[196]RACONIAN":EM$(6)="[194]ETA-[204]YRAES"
  7. 25 EM$(7)="[218]ENTRADI":EM$(8)="[201]NVID":EM$(9)="[214]ALORIAN":EM$(10)="[199]ATOS [206]EGRO"
  8. 35 PRINT"[147]"CHR$(14)CHR$(8)
  9. 40 X=RND(-TI):X=0
  10. 45 POKE53280,0:POKE53281,0
  11. 50 PRINT"[147][129]"TAB(7)"[215] E L C O M E   T O   T H E"
  12. 51 PRINT""TAB(7)"[176][192][192][192][174]  [176][192][178][192][174]  [176][192][192][192][174]  [176][192][192][192][174]"
  13. 55 PRINTTAB(7)"[221]        [221]    [221]   [221]  [221]   [221]"
  14. 60 PRINTTAB(7)"[173][192][192][192][174]    [221]    [171][192][192][192][179]  [171][192][178][192][189]"
  15. 65 PRINTTAB(7)"    [221]    [221]    [221]   [221]  [221] [173][174] "
  16. 70 PRINTTAB(7)"[173][192][192][192][189]    [177]    [177]   [177]  [177]  [177] "
  17. 75 PRINT" [176][192][174]  [176][192][174]  [176][192][174]  [176][174][178]  [176][178][174]  [176][178][174]  [176][192][174]  [176][192][174]"
  18. 80 PRINT" [221]    [221] [221]  [221] [221]  [221][221][221]   [221]    [221]   [221]    [221] [221]"
  19. 85 PRINT" [171][192]   [171][178][189]  [221] [221]  [221][221][221]   [221]    [221]   [171][192]   [171][178][189]"
  20. 90 PRINT" [221]    [221][173][174]  [221] [221]  [221][221][221]   [221]    [221]   [221]    [221][173][174]"
  21. 95 PRINT" [177]    [177] [177]  [173][192][189]  [177][173][189]   [177]   [173][177][189]  [173][192][189]  [177] [177]"
  22. 100 PRINT"[129]    [195] O N S T R U C T I O N   [211] E T"
  23. 105 PRINT"[155]  [195]REATED BY:"SPC(17)"(C) 1990"
  24. 110 PRINT"[159][196]O YOU WISH TO VIEW [201]NSTRUCTIONS? (Y/N)"
  25. 111 PRINT"[152]  [207]K TO DISTRIBUTE[152], BUT NOT TO SELL."
  26. 115 X=19:Y=14:GOSUB9200:PRINTC$"[211]ETH [200]OPKINSON"
  27. 120 A$="[151][152][155][155][152][151][154][159][154][149][129][150][129][149]"
  28. 125 C=C+1:IFC=LEN(A$)+1THENC=1
  29. 130 C$=MID$(A$,C,1)
  30. 135 GETA$:IFA$="Y"THEN4000
  31. 136 IFA$="N"THEN145
  32. 140 GOTO115
  33. 145 PRINT"[147][158]":P$(0)="[195]OMPUTER":PC(0)=7:PC$(0)="[158]":GOSUB9205
  34. 150 PRINT"[147][211]TAR [198]RONTIER [195]ONSTRUCTION [211]ET [205]AIN [205]ENU":YR=1:YM=10
  35. 155 PRINTSPC(15)"[150][204][155]OAD A GAME"
  36. 160 PRINTSPC(6)"[150][195][155]REATE A RANDOM STAR SYSTEM"
  37. 165 PRINTSPC(7)"[150][205][155]AKE A CUSTOM STAR SYSTEM"
  38. 170 PRINTSPC(15)"[150][211][155]OUND [212]EST"
  39. 171 PRINT"   [150][212][155]ITLE [211]CREEN (RESETS EMPIRE NAMES)"
  40. 175 GETA$
  41. 180 IFA$="L"THEN5500
  42. 185 IFA$="C"THEN200
  43. 190 IFA$="M"THENW=0:P=0:GOSUB9205:GOTO370
  44. 191 IFA$="S"THEN6000
  45. 192 IFA$="T"THEN15
  46. 195 GOTO175
  47. 200 PRINT"[147][200]OW MANY PLAYER HOMEWORLDS(0-6)";:INPUTP
  48. 201 IFP<0ORP>6THEN200
  49. 202 INPUT"[200]OW MANY WORLDS(1-34)";W
  50. 203 IFW<PTHENGOSUB7025:GOTO202
  51. 204 IFW<1ORW>34THEN202
  52. 205 INPUT"[200]OW MANY [195][208][213] EMPIRES(0-11)";CP
  53. 206 IFCP>11ORCP<0THENGOSUB7000:GOTO205
  54. 210 PRINT"[208]RODUCTION [204]EVEL(0=NORMAL 31-?? HIGHEST)":INPUTLV
  55. 215 PRINT"[195]REATE [195][208][213][160][197][205][208][201][210][197][160]HOMEWORLDS?":CE=0
  56. 220 GETA$:IFA$="Y"THENCE=2
  57. 225 IFA$="N"THENCE=1
  58. 230 IFCE=0THEN220
  59. 231 PRINT"[147][155][208]LEASE [215]AIT..."
  60. 235 FORT=1TOP:WP%(T)=10:WS%(T)=(INT(RND(1)*14)+10)*W:PRINTT;
  61. 236 P$(T)="#"+STR$(T)
  62. 240 IFT=1THENWE%(T)=3:WA%(T)=1:PC(T)=3:PC$(T)="[159]":WO$(T)=P$(T)
  63. 245 IFT=2THENWE%(T)=10:WA%(T)=1:PC(T)=10:PC$(T)="[150]":WO$(T)=P$(T)
  64. 250 IFT=3THENWE%(T)=4:WA%(T)=1:PC(T)=4:PC$(T)="[156]":WO$(T)=P$(T)
  65. 255 IFT=4THENWE%(T)=5:WA%(T)=1:PC(T)=5:PC$(T)="":WO$(T)=P$(T)
  66. 260 IFT=5THENWE%(T)=9:WA%(T)=1:PC(T)=9:PC$(T)="[149]":WO$(T)=P$(T)
  67. 265 IFT=6THENWE%(T)=13:WA%(T)=1:PC(T)=13:PC$(T)="[153]":WO$(T)=P$(T)
  68. 266 WY%(T)=INT(RND(1)*39):WX%(T)=INT(RND(1)*13)
  69. 267 FORG=1TOP:IFWX%(G)=WX%(T)ANDWY%(G)=WY%(T)THENIFG<>TTHEN266
  70. 270 P$(T)="#"+STR$(T):NEXTG,T:IFW=PTHEN370
  71. 271 PRINT"";
  72. 275 FORG=(P+1)TOW:PRINTG;
  73. 280 WX%(G)=INT(RND(1)*13)
  74. 285 WY%(G)=INT(RND(1)*39)
  75. 290 FORH=1TO(G-1):IFWY%(H)=WY%(G)ANDWX%(H)=WX%(G)THENIFH<>GTHEN280
  76. 295 NEXTH
  77. 300 WP%(G)=INT(RND(1)*12)-2
  78. 305 IFLV=0THEN320
  79. 310 FORI=1TOLV:WP%(G)=WP%(G)+INT(RND(1)*6):NEXTI
  80. 315 IFWP%(G)>99THENWP%(G)=99
  81. 320 IFWP%(G)<0THENWP%(G)=0
  82. 325 WA%(G)=0:WE%(G)=7:WS%(G)=INT(RND(1)*27)
  83. 330 IFCP=0THENWO$(G)=PC$(0):GOTO340
  84. 335 A=INT(RND(1)*CP):WO$(G)=EM$(A)
  85. 340 NEXTG:IFCE=1THEN370
  86. 345 FORG=0TO(CP-1)
  87. 350 A=INT(RND(1)*W)+1:IFA<(P+1)THEN350
  88. 355 FORI=0TOG:IFZZ(I)=ATHEN350
  89. 356 NEXTI
  90. 360 WO$(A)=EM$(G):WP%(A)=10:WS%(A)=(INT(RND(1)*14)+10)*W
  91. 365 WE%(A)=7:NEXTG
  92. 370 GOSUB9000:GOSUB9015
  93. 375 GOSUB9250:PRINT"[154]?[150] FOR [207]PTIONS [205]ENU"
  94. 380 PRINT"[215][156]ORLD [205]ENU   [198][156]LEET [205]ENU   [210][156]EMOVE [215]ORLD"
  95. 390 PRINT"[193][156]DD [215]ORLD   [205][156]OVE [215]ORLD[160]  [208][156]LAYER [205]ENU";
  96. 400 GETA$:IFA$="?"THEN8000
  97. 405 IFA$="M"THEN500
  98. 410 IFA$="A"THEN615
  99. 415 IFA$="R"THEN650
  100. 420 IFA$="F"THEN670
  101. 425 IFA$="W"THEN1300
  102. 430 IFA$="P"THEN1800
  103. 499 GOTO400
  104. 500 GOSUB9250
  105. 501 PRINT"[215][200][201][195][200][160][215][207][210][204][196]? (0 TO ABORT)."
  106. 505 GETA$:IFA$=""THEN505
  107. 507 IFA$="0"THEN375
  108. 510 FORG=1TOW:IFWR$(G)=A$THEN520
  109. 515 NEXTG:X=23:Y=0:GOSUB9200
  110. 516 PRINT"[129][206][207][212][160][207][206][160][205][193][208]!!!!                 ":GOSUB7000:GOTO500
  111. 520 X=22:Y=0:GOSUB9200:PRINT"0[156] [193]BORTS.":XX=WX%(G)
  112. 525 PRINT"[129][213]SE [154][195][210][211][210][129] KEYS TO MOVE WORLD,":YY=WY%(G)
  113. 530 PRINT"PRESS [153][210][197][212][213][210][206][129] WHEN FINISHED.";
  114. 535 OX=WX%(G):OY=WY%(G)
  115. 540 GETA$:IFA$=CHR$(145)THENOX=OX-1
  116. 541 IFA$="0"THENWX%(G)=XX:WY%(G)=YY:GOTO370
  117. 545 IFA$=CHR$(17)THENOX=OX+1
  118. 550 IFA$=CHR$(29)THENOY=OY+1
  119. 555 IFA$=CHR$(157)THENOY=OY-1
  120. 556 IFA$=CHR$(13)THEN375
  121. 560 IFOX=WX%(G)ANDOY=WY%(G)THEN540
  122. 565 IFOX<0THENOX=0:GOSUB7065
  123. 570 IFOY<0THENOY=0:GOSUB7065
  124. 575 IFOX>12THENOX=12:GOSUB7065
  125. 580 IFOY>38THENOY=38:GOSUB7065
  126. 585 FORH=1TOW
  127. 590 IFWX%(H)=OXANDWY%(H)=OYTHENIFH<>GTHENGOSUB7065:OX=WX%(G):OY=WY%(G):GOTO540
  128. 595 NEXTH
  129. 600 X=WX%(G):Y=WY%(G):GOSUB9200:PRINT"[151][219]";
  130. 605 WX%(G)=OX:WY%(G)=OY:X=OX:Y=OY:GOSUB9200:POKE646,WE%(G):PRINTWR$(G);
  131. 610 GOTO540
  132. 615 W=W+1:IFW>34THENW=34:GOSUB7000:GOTO375
  133. 620 WX%(W)=INT(RND(1)*13):WY%(W)=INT(RND(1)*39):IFW=1THEN631
  134. 625 FORH=1TO(W-1):IFWX%(H)=WX%(W)ANDWY%(H)=WY%(W)THEN620
  135. 630 NEXTH
  136. 631 IFWP%(W)=0THENWP%(W)=INT(RND(1)*11)
  137. 632 IFWS%(W)=0THENWS%(W)=INT(RND(1)*20)+10
  138. 634 WE%(W)=7:WA%(W)=0:WO$(W)="[195]OMPUTER"
  139. 635 X=WX%(W):Y=WY%(W):FORH=1TO15:POKE646,H:GOSUB9200:PRINTWR$(W);:NEXTH
  140. 636 POKE646,1:GOSUB9200:PRINTWR$(W);:GOSUB7170
  141. 640 POKE646,WE%(W):GOSUB9200:PRINTWR$(W);
  142. 645 GOSUB9015:GOTO400
  143. 650 W=W-1:IFW<0THENW=0:GOSUB7000:GOTO375
  144. 655 A=W+1:X=WX%(A):Y=WY%(A):POKE646,1:GOSUB9200:PRINTWR$(A)
  145. 660 WE%(A)=0
  146. 665 GOSUB7185:GOSUB9200:PRINT"[151][219]":GOSUB9130:GOSUB9015:GOTO400
  147. 670 GOSUB9250:PRINT"[155]  [198][204][197][197][212][160][205][197][206][213]       "
  148. 675 PRINT"[211][156]END [198]LEET ([206]ORMAL)   [195][156]USTOM [198]LEET"
  149. 680 PRINT"[198][156]LEETS  [197][156]DIT  [201][156]NFORMATION[160]  [205][156]ENU";
  150. 685 GETA$:IFA$="F"THEN710
  151. 690 IFA$="S"THEN780
  152. 695 IFA$="M"THEN375
  153. 696 IFA$="E"THEN1010
  154. 700 IFA$="C"THEN850
  155. 701 IFA$="I"THEN730
  156. 705 GOTO685
  157. 710 PRINT"[147][159][210][197][195][207][210][196][160][207][198][160][198][204][197][197][212][211] ([150][211][200][201][198][212][154] TO [208]AUSE.)":PRINT
  158. 711 PRINT"[198][204]#  [207]  [196]  [193]RV [211]HPS  [195][193] [207]WNER/[198]LEET [206]AME"
  159. 715 FORG=1TOFL
  160. 720 PRINT"[155]"G;TAB(5)WR$(FX%(G));"  ";WR$(FY%(G));TAB(10);FA%(G);TAB(14);FS%(G);
  161. 721 PRINTTAB(20);FC$(G)FC%(G);TAB(24);FL$(G)
  162. 722 M=PEEK(653):IFPEEK(653)=1THEN722
  163. 725 NEXTG:PRINT:GOSUB9400:GOSUB9000:GOSUB9015:GOTO670
  164. 730 GOSUB9250:PRINT"[155]  [198][204][197][197][212][160][201][206][198][207]      "
  165. 735 PRINT"[198]LEET [206]UMBER "FF:X=23:Y=12:GOSUB9200:INPUTFF
  166. 740 IFFF>FLORFF<0THENGOSUB7025:GOTO670
  167. 745 GOSUB9250:PRINT"[198][204][197][197][212] [206][213][205][194][197][210] [129]"FF
  168. 750 PRINT"[155][207]RGIN:";:POKE646,WE%(FX%(FF)):PRINTWR$(FX%(FF));"[155] [196]EST:";
  169. 755 POKE646,WE%(FY%(FF)):PRINTWR$(FY%(FF));"[155] [193]RRIVES:[153]"FA%(FF);
  170. 760 PRINT"[155] #SHIP:"FS%(FF)
  171. 765 PRINT"[155][195]OLOR/[193]LIANCE:"FC$(FF)FC%(FF);"[155][207]WNER:"FC$(FF)FL$(FF);
  172. 770 GETA$:IFA$=""THEN770
  173. 775 GOTO670
  174. 780 GOSUB9250:PRINT"[154][207]RGIN (? ABORTS)";:INPUTO$:IFO$="?"THENGOSUB9015:GOTO670
  175. 785 FORH=1TOW:IFWR$(H)=O$THENO=H:GOTO795
  176. 790 NEXTH
  177. 791 X=23:Y=0:GOSUB9200:PRINT"[129][206][207][212][160][207][206][160][205][193][208]!!":GOSUB7000:GOTO780
  178. 795 GOSUB9250:PRINT"[154][196]ESTINATION";:INPUTD$:IFD$=""THENGOSUB9015:GOTO670
  179. 800 FORH=1TOW:IFWR$(H)=D$THEND=H:GOTO810
  180. 805 NEXTH:GOTO791
  181. 810 GOSUB9250:PRINT"[154][206]UMBER [207]F [211]HIPS";:INPUTS:IFS=0THENGOSUB9015:GOTO670
  182. 815 IFS>WS%(O)THENX=23:Y=0:GOSUB9200:PRINT"[129][206][207][212][160][197][206][207][213][199][200][160][212][200][197][210][197]!":GOSUB7025:GOTO810
  183. 820 FL=FL+1:IFFL<250THEN825
  184. 821 FL=FL-1:GOSUB9250:PRINT"  [212][207][207][160][205][193][206][217][160][198][204][197][197][212][211]!  ":GOSUB7150:GOTO670
  185. 825 WS%(O)=WS%(O)-S:FL$(FL)=WO$(O):FX%(FL)=O:FY%(FL)=D:FS%(FL)=S:FC%(FL)=WE%(O)
  186. 830 C=WE%(O):GOSUB9600:FC$(FL)=C$
  187. 835 A=(WX%(O)-WX%(D))^2:B=(WY%(O)-WY%(D))^2
  188. 840 FA%(FL)=1+INT(SQR(A+B)/3)+YR
  189. 845 GOTO780
  190. 850 GOSUB9250:PRINT"  [195][213][211][212][207][205][160][198][204][197][197][212]"
  191. 855 INPUT"[215]ORLD (? ABORTS)";W$:IFW$="?"THENGOSUB9270:GOSUB9015:GOTO670
  192. 860 FORH=1TOW:IFWR$(H)=W$THENWC=H:GOTO870
  193. 865 NEXTH:PRINT"[153][206][207][212][160][207][206][160][205][193][208]!!";:GOSUB7000:GOTO850
  194. 870 X=23:Y=0:GOSUB9200:INPUT"[206]UMBER [207]F [211]HIPS(-9999 TO 9999)";S
  195. 875 IFABS(S)>9999THEN870
  196. 876 GOSUB9250:X=23:Y=0:GOSUB9200:INPUT"[193]RRIVAL [217]EAR";AY
  197. 878 IFAY<YRTHEN876
  198. 879 IFAY>YMTHENPRINT"[129][205]AX [217]EARS [193]DJUSTED";:GOSUB7025:YM=AY+1
  199. 880 GOSUB9270:PRINT"[195]HOOSE [195]OLOR/[193]LIANCE                   "
  200. 885 PRINT"[155]3=[208]LAYER1, 10=[208]2, 4=[208]3, 5=[208]4, 9=[208]5,"
  201. 890 PRINT"13=[208]6, 7=([195]OMPUTER [197]MPIRE), 15=([208]IRATE)"
  202. 895 PRINT"[129][193]NY NUMBER FROM 0 TO 15 CAN BE USED.";
  203. 900 X=23:Y=0:GOSUB9200:INPUT"[159][195]OLOR";C
  204. 905 IFC>15ORC<0THEN900
  205. 910 GOSUB9600
  206. 915 GOSUB9270:GOSUB925:GOTO975
  207. 925 GOSUB9250:PRINT"[155][198]LEET [212]ITLE?"
  208. 930 PRINT"[158][208][156]LAYER, [158][197][156]MPIRE, [158][195][156]USTOM [206]AME."
  209. 935 GETA$:IFA$="P"THEN990
  210. 940 IFA$="E"THEN1000
  211. 945 IFA$="C"THEN955
  212. 950 GOTO935
  213. 955 GOSUB9250
  214. 960 X=22:Y=0:GOSUB9200:PRINT"[155][197]NTER [212]ITLE(NO MORE THAN 11 CHARACTERS)"
  215. 965 INPUTT$:IFLEN(T$)>11THEN960
  216. 970 IFT$=""THEN925
  217. 971 RETURN
  218. 975 FL=FL+1:IFFL<250THEN980
  219. 976 X=22:Y=0:GOSUB9200
  220. 977 IFFL>260THENPRINT"[152][206][207][160][205][207][210][197]!!":GOSUB7100:GOSUB7045:GOTO375
  221. 978 PRINT"[215][193][210][206][201][206][199]-[212]O [205]ANY [198]LEETS;  ONLY"260-FL"MORE!!";:GOSUB7150
  222. 980 FX%(FL)=WC:FY%(FL)=WC:FL$(FL)=T$:FA%(FL)=AY:FS%(FL)=S:FC$(FL)=C$:FC%(FL)=C
  223. 985 GOTO850
  224. 990 PRINT"[147]":GOSUB5600:PRINT"[208]LAYER #":INPUTPP
  225. 991 IFPP>PORPP<PTHEN990
  226. 995 T$=P$(PP)::GOSUB9000:GOSUB9015:RETURN
  227. 1000 PRINT"[147]":GOSUB5650:PRINT"[197]MPIRE #":INPUTPP
  228. 1001 IFPP>10ORPP<0THEN1000
  229. 1005 T$=EM$(PP):GOSUB9000:GOSUB9015:RETURN
  230. 1010 GOSUB9250:PRINT"[155]  [197][196][201][212][160][198][204][197][197][212][211]      "
  231. 1015 PRINT"[210][156]EMOVE [198]LEET  [206][156]AME  [211][156]HIPS  [193][156]RRIVAL [217]EAR"
  232. 1020 PRINT"[196][156]ESTINATION [207][156]RIGIN  [195][156]OLOR/[193]LIANCE  [205][156]ENU";
  233. 1025 GETA$:IFA$="M"THEN670
  234. 1030 IFA$="R"THENGOSUB1070:GOTO1250
  235. 1035 IFA$="N"THENGOSUB1070:GOTO1080
  236. 1040 IFA$="S"THENGOSUB1070:GOTO1105
  237. 1045 IFA$="A"THENGOSUB1070:GOTO1120
  238. 1050 IFA$="O"THENGOSUB1070:GOTO1220
  239. 1055 IFA$="C"THENGOSUB1070:GOTO1140
  240. 1060 IFA$="D"THENGOSUB1070:GOTO1190
  241. 1061 IFA$="F"THEN710
  242. 1065 GOTO1025
  243. 1070 GOSUB9250:PRINT"[198]LEET [206]UMBER "FF:X=23:Y=12:GOSUB9200:IFFL=1THENFF=1:RETURN
  244. 1071 INPUTFF
  245. 1072 IFFF>FLTHENGOSUB9250:PRINT"[150][206][207][160][211][213][195][200][160][198][204][197][197][212]!":GOSUB7025:FF=FL:GOTO1070
  246. 1075 RETURN
  247. 1080 GOSUB9270:X=21:Y=0:GOSUB9200:PRINT"[129][195]URRENT [206]AME [201]S : "FC$(FF)FL$(FF);
  248. 1085 GOSUB925:GOSUB9270
  249. 1090 FL$(FF)=T$
  250. 1100 GOTO1010
  251. 1105 X=23:Y=0:GOSUB9200:INPUT"[206]UMBER [207]F [211]HIPS(-9999 TO 9999)";S
  252. 1110 IFABS(S)>9999THEN1105
  253. 1115 FS%(FF)=S:GOTO1010
  254. 1120 GOSUB9250:X=23:Y=0:GOSUB9200:INPUT"[193]RRIVAL [217]EAR";AY
  255. 1125 IFAY<YRTHEN876
  256. 1130 IFAY>YMTHENPRINT"[129][205]AX [217]EARS [193]DJUSTED";:GOSUB7025:YM=AY+1
  257. 1135 FA%(FF)=AY:GOTO1010
  258. 1140 GOSUB9270:PRINT"[195]HOOSE [195]OLOR/[193]LIANCE                   "
  259. 1145 PRINT"[155]3=[208]LAYER1, 10=[208]2, 4=[208]3, 5=[208]4, 9=[208]5,"
  260. 1150 PRINT"13=[208]6, 7=([195]OMPUTER [197]MPIRE), 15=([208]IRATE)"
  261. 1155 PRINT"[129][193]NY NUMBER FROM 0 TO 15 CAN BE USED.";
  262. 1160 X=23:Y=0:GOSUB9200:INPUT"[159][195]OLOR";C
  263. 1165 IFC>15ORC<0THEN900
  264. 1170 GOSUB9600
  265. 1180 GOSUB9270:GOSUB9015
  266. 1185 FC%(FF)=C:FC$(FF)=C$:GOTO1010
  267. 1190 O=FY%(FF)
  268. 1195 GOSUB9250:PRINT"[129][195]URRENT [198]LEET [196]ESTINATION [201]S : ";:POKE646,WE%(O)
  269. 1200 PRINTWR$(O);:X=23:Y=0:GOSUB9200:INPUT"[155][197]NTER [206]EW [196]ESTINATION";O$
  270. 1205 FORH=1TOW:IFWR$(H)=O$THENWO=H:GOTO1215
  271. 1210 NEXTH:GOSUB9250:PRINT"[206][207][212][160][207][206][160][205][193][208]!!";:GOSUB7025:GOTO1195
  272. 1215 FY%(FF)=WO:GOTO1010
  273. 1220 O=FX%(FF)
  274. 1225 GOSUB9250:PRINT"[129][195]URRENT [198]LEET [207]RIGIN [201]S : ";:POKE646,WE%(O)
  275. 1230 PRINTWR$(O);:X=23:Y=0:GOSUB9200:INPUT"[155][197]NTER [206]EW [207]RIGIN";O$
  276. 1235 FORH=1TOW:IFWR$(H)=O$THENWO=H:GOTO1245
  277. 1240 NEXTH:GOSUB9250:PRINT"[206][207][212][160][207][206][160][205][193][208]!!";:GOSUB7025:GOTO1225
  278. 1245 FX%(FF)=WO:GOTO1010
  279. 1250 IFFF=FLTHENFA%(FF)=0:FL=FL-1:GOTO1010
  280. 1255 FS%(FF)=FS%(FL):FL$(FF)=FL$(FL):FC$(FF)=FC$(FL):FC%(FF)=FC%(FL)
  281. 1260 FX%(FF)=FX%(FL):FY%(FF)=FY%(FL):FA%(FF)=FA%(FL):FL=FL-1
  282. 1265 GOTO1010
  283. 1300 GOSUB9250:PRINT"[215][207][210][204][196][160][205][197][206][213] ([150][205][154]ENU)"
  284. 1301 IFZ<1ORZ>WTHENZ=W
  285. 1305 PRINT"[215][156]ORLD([159]"WR$(Z)"[156])  [201][156]NFO  [206][156]AME  [195][156]OLOR  [214][156]ISIBILITY"
  286. 1310 PRINT"[208][156]RODUCTION  [211][156]HIPS  [204][156]ETTER  [193][156]LL  [207][156]RBITS";
  287. 1315 GETA$:IFA$="M"THEN375
  288. 1320 IFA$="W"THEN1365
  289. 1325 IFA$="N"THEN1390
  290. 1330 IFA$="C"THENGOSUB1700:GOTO1363
  291. 1335 IFA$="P"THENGOSUB1525:GOTO1363
  292. 1336 IFA$="V"THENGOSUB2600:GOSUB9270:GOTO1363
  293. 1337 IFA$="A"THEN2650
  294. 1340 IFA$="S"THENGOSUB1545:GOTO1363
  295. 1345 IFA$="L"THENGOSUB1565:GOTO1363
  296. 1350 IFA$="I"THEN1505
  297. 1355 IFA$="O"THEN1750
  298. 1360 GOTO1315
  299. 1363 GOSUB9015:GOTO1300
  300. 1365 GOSUB9250:PRINT"[154][215]HICH [215]ORLD [212]O [197]DIT? (0[154] [193]BORTS)"
  301. 1370 GETA$:IFA$="0"THEN1300
  302. 1373 IFA$=""THEN1370
  303. 1375 FORH=1TOW:IFWR$(H)=A$THEN1385
  304. 1380 NEXTH:PRINT"[206][207][212][160][207][206][160][205][193][208]!";:GOSUB7000:GOTO1365
  305. 1385 Z=H:GOTO1300
  306. 1390 GOSUB9250:PRINT"[155][215]ORLD [207]WNER [206]AME:"
  307. 1395 PRINT"[158][208][156]LAYER, [158][197][156]MPIRE, [158][195][156]USTOM [206]AME, [158][205][156]ENU"
  308. 1400 GETA$:IFA$="P"THEN1475
  309. 1405 IFA$="E"THEN1490
  310. 1410 IFA$="C"THEN1420
  311. 1411 IFA$="M"THEN1300
  312. 1415 GOTO1400
  313. 1420 GOSUB9250
  314. 1460 X=22:Y=0:GOSUB9200:PRINT"[155][197]NTER [207]WNER [206]AME"
  315. 1461 X=24:Y=0:GOSUB9200:PRINT"[155](NO MORE THAN 11 CHARACTERS!)";
  316. 1465 X=23:Y=0:GOSUB9200:INPUTT$:IFLEN(T$)>11THEN1460
  317. 1470 IFT$=""THEN1390
  318. 1471 WO$(Z)=T$:GOTO1300
  319. 1475 IFP=0THENGOSUB9250:PRINT"[206][207][160][208][204][193][217][197][210][211]!!!":GOSUB7000:GOTO1390
  320. 1476 PRINT"[147]":GOSUB5600:PRINT"[208]LAYER #":INPUTPP
  321. 1480 IFPP>PORPP<1THEN1476
  322. 1485 WO$(Z)=P$(PP)::GOSUB9000:GOSUB9015:GOTO1300
  323. 1490 PRINT"[147]":GOSUB5650:PRINT"[197]MPIRE #":INPUTPP
  324. 1495 IFPP>10ORPP<0THEN1490
  325. 1500 WO$(Z)=EM$(PP):GOSUB9000:GOSUB9015:GOTO1300
  326. 1505 PRINT"[147][215]ORLD [201]NFORMATION:  ([211][200][201][198][212] TO PAUSE[155])"
  327. 1510 PRINT"[155] [195][193] [207]WNER"SPC(7)"[215]  [208]R  [211]HP   [207]RBTS [207]RB[195][193]"
  328. 1515 FORA=1TOW:POKE646,WE%(A):PRINTWE%(A)TAB(4)WO$(A)TAB(16)WR$(A)"[155]"TAB(18);
  329. 1519 C=0:PRINTWP%(A)TAB(22)WS%(A);
  330. 1520 IFPEEK(653)=1THEN1520
  331. 1521 FORB=0TO13:IFABS(OW%(A,B))>0THENPOKE646,B:PRINTTAB(28)OW%(A,B)TAB(35)B:C=1
  332. 1522 NEXTB:IFC=0THENPRINT
  333. 1523 NEXTA
  334. 1524 PRINT:GOSUB9450:GOSUB9000:GOSUB9015:GOTO1300
  335. 1525 GOSUB9250:PRINT"[150][197]NTER [206]EW [208]RODUCTION (-99 TO 99) "WP%(Z)
  336. 1530 X=23:Y=32:GOSUB9200:INPUTO
  337. 1535 IFABS(O)>99THENGOSUB7000:GOTO1530
  338. 1540 WP%(Z)=O:RETURN
  339. 1545 GOSUB9250:PRINT"[150][197]NTER # OF [211]HIPS[160](-9999 TO 9999) "WS%(Z)
  340. 1550 X=23:Y=32:GOSUB9200:INPUTO
  341. 1555 IFABS(O)>9999THENGOSUB7025:GOTO1545
  342. 1560 WS%(Z)=O:RETURN
  343. 1565 GOSUB9250:PRINT"[155][195]URRENT [204]ETTER ";:POKE646,WE%(Z):PRINTWR$(Z)
  344. 1570 PRINT"[156][197]NTER NEW LETTER."
  345. 1575 GETA$:IFA$="?"ORA$="0"THEN1680
  346. 1580 IFPEEK(653)>2THEN1600
  347. 1585 IFA$=""THEN1575
  348. 1590 A=ASC(A$):IFA>127ANDA<160THEN1600
  349. 1595 IFA<32THEN1600
  350. 1596 GOTO1605
  351. 1600 PRINT"[201][206][214][193][204][201][196][160][204][197][212][212][197][210]!";:GOSUB7000:GOTO1565
  352. 1605 IFPEEK(653)=2THEN1650
  353. 1610 FORG=1TOW:IFWR$(G)=A$ANDG<>ZTHEN1620
  354. 1615 NEXTG:GOTO1675
  355. 1620 GOSUB9250:PRINT"[129][193]NOTHER WORLD HAS"
  356. 1625 PRINT"THAT LETTER!  [207]NLY[129] THE [154]FIRST[129] WORLD WITH"
  357. 1630 PRINT"THIS LETTER WILL BE ACCESSIBLE! [207][203]?";
  358. 1635 GETB$:IFB$="Y"THEN1565
  359. 1640 IFB$="N"THEN1675
  360. 1645 GOTO1635
  361. 1650 GOSUB9250:PRINT"[212]HIS SYMBOL WILL"
  362. 1655 PRINT"MAKE THE WORLD TOTALLY INACCESSIBLE TO"
  363. 1660 PRINT"TO [212][200][197] [208][204][193][217][197][210][211].[160] [207][203]?";
  364. 1665 GOSUB7100
  365. 1670 GOTO1635
  366. 1675 WR$(Z)=A$:RETURN
  367. 1680 GOSUB9250:PRINT"[215][193][210][206][201][206][199]! [155][195]HANGING"
  368. 1685 PRINT"TO THIS SYMBOL MAKES THIS WORLD VERY"
  369. 1690 PRINT"INACCESSABLE IN [129][211][198] [195][207][206][160][211][197][212].  [207][203]?";
  370. 1695 GOSUB7045:GOTO1635
  371. 1700 GOSUB9270:PRINT"[195]HOOSE [195]OLOR/[193]LIANCE                   "
  372. 1705 PRINT"[155]3=[208]LAYER1, 10=[208]2, 4=[208]3, 5=[208]4, 9=[208]5,"
  373. 1710 PRINT"13=[208]6, 7=([195]OMPUTER [197]MPIRE), 15=([208]IRATE)"
  374. 1715 PRINT"[129][193]NY NUMBER FROM 0 TO 15 CAN BE USED.";
  375. 1720 X=23:Y=0:GOSUB9200:PRINT"[159][195]OLOR "WE%(Z)
  376. 1721 X=23:Y=5:GOSUB9200:INPUTC
  377. 1725 IFC>15ORC<0THEN1720
  378. 1730 GOSUB9270:WE%(Z)=C:RETURN
  379. 1750 GOSUB9250:PRINT"[154]([150]0[154] ABORTS[154])"
  380. 1755 IFP=0THENGOSUB9250:PRINT"[158][206][207][160][208][204][193][217][197][210][211]!":GOSUB7000:GOTO1300
  381. 1760 PRINT"[158][215]HICH [208]LAYER? [155](1 -"P")
  382. 1765 [161]A$:[139]A$[178]""[167]1765
  383. 1770 [139]A$[178]"0"[167]1300
  384. 1775 A[178][197](A$):[139]A[179]1[176]A[177]P[167][141]7025:[137]1765
  385. 1780 [141]9250:[153]"LIST(-9999 TO +9999)";
  386. 1785 X[178]23:Y[178]0:[141]9200:[133]"CONTLEFT$OW (null)ANY (null)RBITERSPRINT";O
  387. 1790 [139][182](O)[177]9999[167]1780
  388. 1795 OW%(Z,PC(A))[178]O:[137]1300
  389. 1800 [141]9250:[153]"LIST  (null)(null)ATN(null)VAL(null)CLOSE(null)VAL(null)(null)  "
  390. 1805 [153]"ATNCLRDD (null)LAYER  (null)CLREMOVE (null)LAYER  VALCLRMPIRES"
  391. 1810 [153]"(null)CLRLAYERS  (null)CLRPECIAL LENOMMAND  (null)CLRENU";
  392. 1815 [161]A$:[139]A$[178]"A"[167]1900
  393. 1820 [139]A$[178]"R"[167]2025
  394. 1825 [139]A$[178]"E"[167]2220
  395. 1830 [139]A$[178]"P"[167]2300
  396. 1835 [139]A$[178]"S"[167]2700
  397. 1840 [139]A$[178]"M"[167]375
  398. 1899 [137]1815
  399. 1900 [139]P[178]6[167][141]7000:[137]1815
  400. 1905 [141]9250:[153]"LIST(?LIST TO ABORT)"
  401. 1906 [153]"FOR(null)LAYER'S (null)AME":[153]"CLR(11 CHARACTERS OR LESS!)";
  402. 1910 X[178]23:Y[178]14:[141]9200:[133]P$
  403. 1915 [139][195](P$)[177]11[167]1910
  404. 1917 [139]P$[178]"?"[167]1800
  405. 1918 [139]P[178]0[167]1930
  406. 1920 [129]G[178]1[164]P:[139]P$[178]P$(G)[167]1965
  407. 1925 [130]G
  408. 1930 [141]9250:[153]"FOR(null)LAYER'S LENOLOR"
  409. 1935 [153]"CLR(0 TO 15 ONLY: OPEN0CLR NOT RECOMENDED).";
  410. 1940 X[178]23:Y[178]15:[141]9200:[133]C:C[178][181](C)
  411. 1945 [139]C[179]0[176]C[177]15[167][141]7025:[137]1930
  412. 1946 [139]P[178]0[167]1960
  413. 1950 [129]G[178]1[164]P:[139]C[178]PC(G)[167]1990
  414. 1955 [130]G
  415. 1960 [141]9600:P[178]P[170]1:P$(P)[178]P$:PC(P)[178]C:PC$(P)[178]C$:[137]1800
  416. 1965 [141]9250:[153]"FOR(null)HIS NAME IS USED BY ANOTHER PLAYER!"
  417. 1970 [153]"PRINTRIGHT$S THIS (null)(null)?";
  418. 1975 [161]A$:[139]A$[178]"Y"[167]1930
  419. 1980 [139]A$[178]"N"[167]1905
  420. 1985 [137]1975
  421. 1990 [141]9250:[153]"DEFLENOLOR IS USEDCLOSEBY"
  422. 1995 [153]"ANOTHER PLAYER. RIGHT$F COLORS ARE THE SAME,"
  423. 2000 [153]"PLAYERS BECOME TOTALLY ALLIED.  (null)(null)?";
  424. 2005 [141]7065:[129]G[178]1[164]10:[141]7070:[130]G
  425. 2010 [161]A$:[139]A$[178]"Y"[167]1960
  426. 2015 [139]A$[178]"N"[167]1930
  427. 2020 [137]2010
  428. 2025 [139]P[179]1[167][141]7000:[137]1800
  429. 2026 [141]9250:[153]"LIST(0LIST ATNBORTS)"
  430. 2030 [153]"(null)HICH (null)LAYER (null)O STR$ELETE?"
  431. 2035 [161]A$:[139]A$[178]""[167]2035
  432. 2040 [139]A$[178]"0"[167]1800
  433. 2045 A[178][197](A$):[139]A[179]1[176]A[177]P[167][141]9250:[153]"(null)(null)CLOSE(null)(null)LENLEFT$CLOSE(null)(null)ATN(null)VAL(null)!":[141]7025:[137]2026
  434. 2050 [139]A[178]P[167]P[178]P[171]1:[137]1800
  435. 2055 C[178]PC(A):B$[178]P$(A):P$(A)[178]P$(P):PC(A)[178]PC(P):PC$(A)[178]PC$(P):P[178]P[171]1
  436. 2060 [129]G[178]1[164]W:[139]WE%(G)[178]C[167]2070
  437. 2065 [130]G:[137]1800
  438. 2070 [141]9250:[153]"LISTLENHANGE WORLDS OWNED"
  439. 2075 [153]"BY PLAYER TO WHICH COLOR"C
  440. 2080 [153]"CONT(DEF(null)VAL(null)(null)(null)(null)CONT FOR NO CHANGE).";
  441. 2085 X[178]23:Y[178]23:[141]9200:[133]D
  442. 2087 D[178][181](D)
  443. 2090 [139]D[178]C[167]2100
  444. 2091 [139]C[179]0[176]C[177]15[167][141]7025:[137]2070
  445. 2095 [141]2200
  446. 2100 [129]G[178]1[164]W:[139]WO$(G)[178]B$[167]2110
  447. 2105 [130]G:[137]1800
  448. 2110 [141]9250:[153]"LISTLENHANGE (null)WNER (null)AMES"
  449. 2115 [153]"TO  "B$
  450. 2120 [153]"CONT(DEF(null)VAL(null)(null)(null)(null)CONT FOR NO CHANGE).";
  451. 2125 X[178]23:Y[178]2:[141]9200:[133]C$
  452. 2130 [139]C$[178]B$[167]1800
  453. 2135 [139][195](C$)[177]11[167][141]9250:[153]"(null)ATN(null)VALCLOSE(null)(null)(null)CLOSE(null)(null)(null)CHR$!!":[141]7000:[137]2110
  454. 2140 [141]2210:[141]9015:[137]1800
  455. 2200 [129]G[178]1[164]W:[139]WE%(G)[178]C[167]WE%(G)[178]D
  456. 2205 [130]G:[142]
  457. 2210 [129]G[178]1[164]W:[139]WO$(G)[178]B$[167]WO$(G)[178]C$
  458. 2215 [130]G:[142]
  459. 2220 [153]"LOAD":[141]5650:[153]"(11 ABORTS.)":[133]"LIST(null)HICH VALMPIRE TO LENHANGE";D
  460. 2225 D[178][181](D):[139]D[179]0[176]D[177]11[167][141]7000:[137]2220
  461. 2230 [139]D[178]11[167]2500
  462. 2235 [153]"OPENVALNTER (null)EW (null)AME, 11 LETTERS OR LESS."
  463. 2240 [133]C$:[139]C$[178]EM$(D)[167]2500
  464. 2245 [129]G[178]1[164]W:[139]WO$(G)[178]EM$(D)[167]2255
  465. 2250 [130]G:[137]2500
  466. 2255 [153]"DEFSTR$O YOU WANT TO CHANGE THE WORLDS OWNED":C[178]WE%(G)
  467. 2260 [153]"BY THE SYS"EM$(D)"DEF TO SYS"C$"DEF WORLDS ?"
  468. 2265 [161]A$:[139]A$[178]"Y"[167]2280
  469. 2270 [139]A$[178]"N"[167]2500
  470. 2275 [137]2265
  471. 2280 [133]"LENOLOR  7CMDCMDCMD";O
  472. 2285 O[178][181](O):[139]O[179]0[176]O[177]15[167]2280
  473. 2290 B$[178]EM$(D):D[178]O:[141]2200:[141]2210:[137]2500
  474. 2300 [139]P[178]0[167][141]7000:[137]1800
  475. 2301 [153]"LOAD":[141]5600:[133]"LIST(null)HICH (null)LAYER (null)O LENHANGE (SYS0LIST ABORT)";B:B[178][181](B)
  476. 2305 [139]B[178]0[167]2500
  477. 2310 [139]B[179]1[176]B[177]P[167][141]7000:[137]2300
  478. 2311 OP$[178]P$(B):OC$[178]PC$(B):OC[178]PC(B)
  479. 2315 X[178]11:Y[178]0:[141]9200:[153]"(null)AME  "P$(B):X[178]11:Y[178]4:[141]9200:[133]P$
  480. 2320 [139][195](P$)[177]11[167]P$(B)[178]P$:[137]2315
  481. 2321 [137]2505
  482. 2325 X[178]13:Y[178]0:[141]9200:[153]"CONTLENOLOR "PC$(B):X[178]13:Y[178]5:[141]9200:[133]C
  483. 2330 C[178][181](C):[139]C[179]0[176]C[177]15[167]2325
  484. 2331 [137]2530
  485. 2335 [141]9600:P$(B)[178]P$:PC$(B)[178]C$:PC(B)[178]C
  486. 2336 [129]G[178]1[164]W:OW%(G,PC(B))[178]OW%(G,OC)[170]OW%(G,PC(B)):OW%(G,OC)[178]0:[130]G
  487. 2340 [129]G[178]1[164]W:[139]WO$(G)[178]OP$[167]2350
  488. 2345 [130]G:[137]2380
  489. 2350 [153]"OPENLENHANGE WORLDS OWNED BY FOR"OP$
  490. 2355 [153]"OPENTO SYS"P$(B)"OPEN ?"
  491. 2360 [161]A$:[139]A$[178]"Y"[167]2375
  492. 2365 [139]A$[178]"N"[167]2380
  493. 2370 [137]2360
  494. 2375 B$[178]OP$:C$[178]P$(B):[141]2210
  495. 2380 [153]"DEFLENHANGE WORLDS WITH COLOR"OC"TO"PC(B)"?
  496. 2385 GETA$:IFA$="Y"THEN2400
  497. 2390 IFA$="N"THEN2405
  498. 2395 GOTO2385
  499. 2400 C=OC:D=PC(B):GOSUB2200
  500. 2405 PRINT"[154][195]HANGE [198]LEETS FROM [150]"OP$
  501. 2410 PRINT"[154]TO "P$(B)" ?"
  502. 2415 GETA$:IFA$="Y"THENB$=OP$:C$=P$(B):GOSUB2580:GOTO2430
  503. 2420 IFA$="N"THEN2430
  504. 2425 GOTO2415
  505. 2430 PRINT"[154][195]HANGE [198]LEET [195]OLORS?"
  506. 2435 GETA$:IFA$="Y"THEND=OC:C=PC(B):GOSUB2570:GOTO2500
  507. 2440 IFA$="N"THEN2500
  508. 2445 GOTO2435
  509. 2500 GOSUB9000:GOSUB9015:GOTO1800
  510. 2505 FORG=1TOP:IFP$(G)=P$ANDG<>BTHEN2509
  511. 2506 NEXTG:GOTO2325
  512. 2509 GOSUB9250:PRINT"[129][212]HIS NAME IS USED BY ANOTHER PLAYER!"
  513. 2510 PRINT"[153][201]S THIS [207][203]?";
  514. 2515 GETA$:IFA$="Y"THENGOSUB9250:GOTO2325
  515. 2520 IFA$="N"THENGOSUB9250:GOTO2315
  516. 2525 GOTO2515
  517. 2530 FORG=1TOP:IFPC(G)=CANDG<>BTHEN2534
  518. 2531 NEXTG:GOTO2335
  519. 2534 GOSUB9270:PRINT"[150][212]HIS COLOR IS USED BY ANOTHER PLAYER!"
  520. 2535 PRINT"[154][201]F PLAYER COLORS ARE THE SAME, BOTH"
  521. 2536 PRINT"PLAYERS BECOME TOTALLY ALLIED;  [215]ORLDS"
  522. 2540 PRINT"& [198]LEETS BELONGING TO ONE PLAYER CAN BE"
  523. 2545 PRINT"ACCESSED BY EITHER PLAYER.  [201][211] [212][200][201][211] [207][203]?";
  524. 2550 FORD=1TO3:GOSUB7065:FORG=1TO10:GOSUB7070:NEXTG,D
  525. 2555 GETA$:IFA$="Y"THENGOSUB9270:GOTO2335
  526. 2560 IFA$="N"THENGOSUB9270:GOTO2325
  527. 2565 GOTO2010
  528. 2570 FORZA=1TOFL:IFFC%(ZA)=DTHENFC%(ZA)=C:GOSUB9600:FC$(ZA)=C$
  529. 2575 NEXTZA:RETURN
  530. 2580 FORZA=1TOFL:IFFL$(ZA)=B$THENFL$(ZA)=C$
  531. 2585 NEXTZA:RETURN
  532. 2600 GOSUB9270:PRINT"[150]0[154] MEANS WORLD IS [201][206][214][201][211][201][194][204][197] TO PLAYERS,"
  533. 2605 PRINT"BELONGS TO THE [195][207][205][208][213][212][197][210] (CPU FLEETS)."
  534. 2610 PRINT"[150]1[154] MEANS WORLD IS [214][201][211][201][194][204][197] TO PLAYERS,"
  535. 2615 PRINT"COMPUTER CANNOT USE THEM (CPU FLEETS),[154]"
  536. 2620 PRINT"COLOR DETERMINES WHO OWNS THE WORLD.";
  537. 2625 GETA$:IFA$="0"THENWA%(Z)=0:RETURN
  538. 2630 IFA$="1"THENWA%(Z)=1:RETURN
  539. 2635 GOTO2625
  540. 2650 GOSUB1565:GOSUB1525:GOSUB1545:GOSUB1700:GOSUB2600:GOSUB9270:GOSUB9015
  541. 2655 GOTO1390
  542. 2700 WQ=0:PRINT"[147][158][198]1[156]  [205]AKE ALL WORLDS OWNED BY [163][163][163][163][163][163]"
  543. 2705 PRINT"    [156]TO WORLDS OWNED BY [163][163][163][163][163][163]"
  544. 2710 PRINT"[158][198]2[129]  [205]AKE ALL WORLDS WITH COLOR [163][163][129]"
  545. 2715 PRINT"    TO COLOR [163][163]"
  546. 2720 PRINT"[158][198]3[156]  [205]AKE ALL FLEETS OWNED BY [163][163][163][163][163][163][156]"
  547. 2725 PRINT"    TO FLEETS OWNED BY [163][163][163][163][163][163]"
  548. 2730 PRINT"[158][198]4[129]  [205]AKE ALL FLEETS WITH COLOR [163][163][129]"
  549. 2735 PRINT"    TO COLOR [163][163]"
  550. 2740 PRINT"[158][198]5[156]  [210]EMOVE ALL FLEETS OWNED BY [163][163][163][163][163][163]"
  551. 2745 PRINT"[158][198]6[129]  [210]EMOVE ALL FLEETS WITH COLOR [163][163]"
  552. 2750 PRINT"[158][198]7[156]  [210]EMOVE ALL ORBITERS OF COLOR [163][163]"
  553. 2755 PRINT"[158][198]8[129]  [208]UT ORBITERS OWNED BY [163][163][163][163][163][163][129][146] IN"
  554. 2760 PRINT"    ORBIT AROUND EVERY WORLD"
  555. 2765 PRINT"[158] 0[156]  [210]EMOVE ALL ORBITERS"
  556. 2770 PRINT"[158] 1[129]  [208]UT ORBITERS OWNED BY [163][163][163][163][163][163][129][146] AROUND"
  557. 2775 PRINT"    EVERY WORLD OWNED BY [163][163][163][163][163][163]"
  558. 2785 PRINT"[158] 2[156]  [208]UT ORBITERS OWNED BY [163][163][163][163][163][163][156][146] AROUND"
  559. 2790 PRINT"    EVERY WORLD WITH COLOR [163][163]"
  560. 2791 PRINT"[158] 3[129]  [205]AKE WORLDS WITH COLOR [163][163][129][146] BE OWNED"
  561. 2792 PRINT"    BY [163][163][163][163][163][163][146]"
  562. 2793 PRINT"[158] 4[156]  [195]HANGE WORLDS OWNED BY [163][163][163][163][163][163][156][146]"
  563. 2794 PRINT"    TO COLOR [163][163]"
  564. 2795 PRINT"[150][211][208][193][195][197][154] TO RETURN TO [208]LAYER [205]ENU[155]":PRINT
  565. 2800 GETA$:IFA$=" "THENGOSUB9000:GOSUB9015:GOTO1800
  566. 2805 IFA$=CHR$(133)THEN2900
  567. 2810 IFA$=CHR$(137)THEN2925
  568. 2815 IFA$=CHR$(134)THEN2945
  569. 2820 IFA$=CHR$(138)THEN2970
  570. 2825 IFA$=CHR$(135)THEN2995
  571. 2830 IFA$=CHR$(139)THEN3050
  572. 2835 IFA$=CHR$(136)THEN3100
  573. 2840 IFA$=CHR$(140)THEN3115
  574. 2845 IFA$="0"THEN3200
  575. 2850 IFA$="1"THEN3250
  576. 2855 IFA$="2"THEN3310
  577. 2860 IFA$="3"THEN3370
  578. 2865 IFA$="4"THEN3405
  579. 2895 GOTO2800
  580. 2900 INPUT"[195]HANGE WORLDS OWNED BY";B$
  581. 2905 IFLEN(B$)>11THEN3900
  582. 2910 INPUT"TO";C$
  583. 2915 IFLEN(C$)>11THEN3900
  584. 2920 GOSUB2210:GOTO2700
  585. 2925 INPUT"[195]HANGE WORLDS WITH COLOR";C
  586. 2930 IFC<0ORC>15THEN3900
  587. 2935 INPUT"TO COLOR";D
  588. 2940 IFD<0ORD>15THEN3900
  589. 2941 GOSUB2200:GOTO2700
  590. 2945 INPUT"[195]HANGE FLEETS OWNED BY";B$
  591. 2950 IFLEN(B$)>11THEN3900
  592. 2955 INPUT"TO";C$
  593. 2960 IFLEN(C$)>11THEN3900
  594. 2965 GOSUB2580:GOTO2700
  595. 2970 INPUT"[195]HANGE FLEETS WITH COLOR";D
  596. 2975 IFD<0ORD>15THEN3900
  597. 2980 INPUT"TO COLOR";C
  598. 2985 IFC<0ORC>15THEN3900
  599. 2990 GOSUB2570:GOTO2700
  600. 2995 INPUT"[210]EMOVE FLEETS OWNED BY";B$
  601. 2996 IFLEN(B$)>11THEN3900
  602. 3000 WQ=WQ+1:IFWQ>FLTHEN2700
  603. 3005 IFFL$(WQ)=B$THEN3020
  604. 3010 GOTO3000
  605. 3020 IFWQ=FLTHENFA%(FF)=0:FL=FL-1:WQ=0:GOTO2700
  606. 3025 FS%(WQ)=FS%(FL):FL$(WQ)=FL$(FL):FC$(WQ)=FC$(FL):FC%(WQ)=FC%(FL)
  607. 3030 FX%(WQ)=FX%(FL):FY%(WQ)=FY%(FL):FA%(WQ)=FA%(FL):FL=FL-1
  608. 3035 GOTO3005
  609. 3050 INPUT"[210]EMOVE FLEETS WITH COLOR";C
  610. 3055 IFC<0ORC>15THEN3905
  611. 3060 WQ=WQ+1:IFWQ>FLTHENWQ=0:GOTO2700
  612. 3065 IFFC%(WQ)=CTHEN3075
  613. 3070 GOTO3060
  614. 3075 IFWQ=FLTHENFA%(FF)=0:FL=FL-1:WQ=0:GOTO2700
  615. 3080 FS%(WQ)=FS%(FL):FL$(WQ)=FL$(FL):FC$(WQ)=FC$(FL):FC%(WQ)=FC%(FL)
  616. 3085 FX%(WQ)=FX%(FL):FY%(WQ)=FY%(FL):FA%(WQ)=FA%(FL):FL=FL-1
  617. 3090 GOTO3065
  618. 3100 INPUT"[210]EMOVE ORBITERS OF WHICH COLOR";C
  619. 3105 IFC<0ORC>15THEN3905
  620. 3110 FORWQ=1TO34:OW%(WQ,C)=0:NEXTWQ:GOTO2700
  621. 3115 PRINT"[215]HICH PLAYER WIILL ORBIT ALL WORLDS?"
  622. 3116 IFP=0THEN3905
  623. 3120 GETA$:IFA$=""THEN3120
  624. 3125 A=VAL(A$):IFA<1ORA>PTHEN3900
  625. 3130 INPUT"[200]OW [205]ANY [207]RBITERS (-9999 TO 9999)";D
  626. 3153 IFABS(D)>9999THEN3900
  627. 3155 C=PC(A):FORG=1TOW:OW%(G,C)=D:NEXTG
  628. 3160 GOTO2700
  629. 3200 PRINT"[210][197][205][207][214][197][160][193][204][204][160][207][210][194][201][212][197][210][211] -"
  630. 3205 PRINT"[193]RE [217]OU [211]URE?"
  631. 3210 GETA$:IFA$="Y"THEN3225
  632. 3215 IFA$="N"THEN2700
  633. 3220 GOTO3210
  634. 3225 FORH=0TO13
  635. 3230 FORG=1TOW
  636. 3235 OW%(G,H)=0
  637. 3240 NEXTG,H:GOTO2700
  638. 3250 IFP=0THEN3900
  639. 3251 INPUT"[215]HO'S WORLDS TO ORBIT";B$
  640. 3255 IFLEN(B$)>11THEN3905
  641. 3260 PRINT"[215]HICH PLAYER WILL ORBIT THEM?"
  642. 3265 GETA$:IFA$=""THEN3265
  643. 3270 A=VAL(A$):IFA<1ORA>PTHEN3900
  644. 3275 INPUT"[200]OW MANY SHIPS";B
  645. 3280 IFABS(B)>9999THEN3275
  646. 3285 C=PC(A)
  647. 3290 FORG=1TOW:IFWO$(G)=B$THEN3300
  648. 3295 NEXTG:GOTO2700
  649. 3300 OW%(G,C)=B:GOTO3295
  650. 3310 IFP=0THEN3900
  651. 3315 INPUT"[215]HICH COLOR TO ORBIT";C
  652. 3320 IFC<0ORC>15THEN3905
  653. 3325 PRINT"[215]HICH PLAYER TO ORBIT?"
  654. 3330 GETA$:IFA$=""THEN3330
  655. 3335 A=VAL(A$):IFA<1ORA>PTHEN3900
  656. 3340 INPUT"[200]OW MANY SHIPS";B
  657. 3345 IFABS(B)>9999THEN3340
  658. 3350 A=PC(A)
  659. 3355 FORG=1TOW:IFWE%(G)=CTHEN3365
  660. 3360 NEXTG:GOTO2700
  661. 3365 OW%(G,A)=B:GOTO3360
  662. 3370 INPUT"[195]OLOR";C
  663. 3375 IFC<0ORC>15THEN3905
  664. 3380 INPUT"[215]ORLDS TO BE OWNED BY";B$
  665. 3385 IFLEN(B$)>11THEN3380
  666. 3390 FORG=1TOW:IFWE%(G)=CTHEN3400
  667. 3395 NEXTG:GOTO2700
  668. 3400 WO$(G)=B$:GOTO3395
  669. 3405 INPUT"[195]HANGE WORLDS OWNED BY";B$
  670. 3410 IFLEN(B$)>11THEN3405
  671. 3415 INPUT"TO COLOR";C
  672. 3420 IFC<0ORC>15THEN3905
  673. 3425 FORG=1TOW:IFWO$(G)=B$THEN3435
  674. 3430 NEXTG:GOTO2700
  675. 3435 WE%(G)=C:GOTO3430
  676. 3900 GOSUB7000:GOTO2700
  677. 3905 GOSUB7025:GOTO2700
  678. 4000 PRINT"[147][159][208]RESS [150][211][200][201][198][212][160][204][207][195][203][159] TO HALT INSTRUCTIONS."
  679. 4005 FL$="SFC INSTRUCTIONS":FL=LEN(FL$):POKE821,FL
  680. 4010 FORG=1TOFL:POKE1006+G,ASC(MID$(FL$,G,1)):NEXTG
  681. 4015 PRINT:SYS820
  682. 4020 PRINT"[159]":GOSUB9450:GOTO35
  683. 5000 PRINT"[147][198]ILENAME FOR "LF$
  684. 5005 PRINT"($ FOR LIST OF SAVED GAMES)[155]"
  685. 5010 PRINT:INPUTFI$:IFFI$="$"THEN5020
  686. 5015 FI$=CHR$(31)+FI$:RETURN
  687. 5020 FI$="$:"+CHR$(31)+"*=U":PRINT""
  688. 5025 OPEN15,8,15,"I:":OPEN1,8,0,FI$:GET#1,A$,A$
  689. 5030 GET#1,A$,A$:IFA$=""THENCLOSE1:CLOSE15:PRINT"[155]":GOSUB9400:GOTO5000
  690. 5035 GET#1,B$,C$
  691. 5040 GET#1,D$:IFD$=CHR$(34)THEN5055
  692. 5045 IFD$<>""THEN5040
  693. 5050 GOTO5030
  694. 5055 GET#1,E$:IFE$<>CHR$(31)THEN5040
  695. 5060 GET#1,D$:IFD$=CHR$(34)THENPRINT:GOTO5040
  696. 5065 PRINTD$;:GOTO5060
  697. 5070 LF$="SAVE":GOSUB5000:OPEN15,8,15,"I:":FL$=FI$+",U,W":OPEN5,8,5,FL$:G=1
  698. 5075 INPUT#15,E,E$,T,S:IFE>0THENCLOSE5:GOTO5155
  699. 5080 LF$=CHR$(13):PRINT#5,P;LF$;G;LF$;PEEK(253);LF$;PEEK(254)
  700. 5085 FORWQ=1TOP:PRINT#5,P$(WQ);LF$;PC$(WQ);LF$;PC(WQ):NEXTWQ
  701. 5090 PRINT#5,CP%;LF$;W;LF$;YM;LF$;YR
  702. 5095 FORWQ=1TOW:IFWO$(WQ)=""THENWO$(WQ)="[195]OMPUTER"
  703. 5100 PRINT#5,WO$(WQ);LF$;WR$(WQ);LF$;WX%(WQ);LF$;WY%(WQ)
  704. 5105 PRINT#5,WP%(WQ);LF$;WE%(WQ);LF$;WS%(WQ);LF$;WA%(WQ):NEXTWQ
  705. 5110 FORWW=1TOP:PC=PC(WW):FORWQ=1TOW
  706. 5115 PRINT#5,OW%(WQ,PC):NEXTWQ,WW
  707. 5120 PRINT#5,FL:IFFL=0THEN5145
  708. 5125 FORWQ=1TOFL
  709. 5130 PRINT#5,FX%(WQ);LF$;FY%(WQ);LF$;FS%(WQ);LF$;FA%(WQ);LF$;FL$(WQ)
  710. 5135 PRINT#5,FC%(WQ);LF$;FC$(WQ)
  711. 5140 NEXTWQ
  712. 5145 WQ=0:WW=0:CLOSE5:INPUT#15,E,E$,T,S:IFE>1THEN5155
  713. 5150 CLOSE15:GOTO8000
  714. 5155 IFE=63THEN5175
  715. 5160 POKE53280,2:PRINT"[129][197][210][210][207][210]!!! - [158]#"E;E$
  716. 5165 PRINT"[129]AT TRACK[158]"T"[129] SECTOR[158]"S
  717. 5166 PRINT"[154]":GOSUB9400
  718. 5170 POKE53280,0:CLOSE15:GOTO8000
  719. 5175 PRINT"[193] SAVED GAME UNDER THAT NAME ALREADY"
  720. 5180 PRINT"EXISTS.  [207][203] TO [207]VERWRITE IT?"
  721. 5185 GETA$:IFA$="Y"THEN5200
  722. 5190 IFA$="N"THENCLOSE1:GOTO5070
  723. 5195 GOTO5185
  724. 5200 FL$="S:"+FI$:PRINT#15,FL$
  725. 5205 FL$=FI$+",U,W":OPEN5,8,5,FL$
  726. 5210 INPUT#15,E,E$,T,S:IFE>0THENCLOSE5:GOTO5155
  727. 5215 GOTO5080
  728. 5500 LF$="LOAD":GOSUB5000:OPEN15,8,15,"I:":FI$=FI$+",U,R":OPEN5,8,5,FI$
  729. 5505 INPUT#15,E,E$,T,S:IFE>0THENCLOSE5:GOTO5155
  730. 5510 INPUT#5,P,G,A,B:POKE253,A:POKE254,B
  731. 5515 FORWQ=1TOP:INPUT#5,P$(WQ),PC$(WQ),PC(WQ):NEXTWQ
  732. 5520 INPUT#5,CP%,W,YM,YR
  733. 5525 FORWQ=1TOW:INPUT#5,WO$(WQ),WR$(WQ),WX%(WQ),WY%(WQ)
  734. 5530 INPUT#5,WP%(WQ),WE%(WQ),WS%(WQ),WA%(WQ):NEXTWQ
  735. 5535 FORWW=1TOP:PC=PC(WW):FORWQ=1TOW
  736. 5540 INPUT#5,OW%(WQ,PC):NEXTWQ,WW
  737. 5545 INPUT#5,FL:IFFL=0THEN5570
  738. 5550 FORWQ=1TOFL
  739. 5555 INPUT#5,FX%(WQ),FY%(WQ),FS%(WQ),FA%(WQ),FL$(WQ)
  740. 5560 INPUT#5,FC%(WQ),FC$(WQ)
  741. 5565 NEXTWQ:P$(0)="[195]OMPUTER":PC(0)=7:PC$(0)="[158]"
  742. 5570 WQ=0:WW=0:CLOSE5:INPUT#15,E,E$,T,S:CLOSE15:IFE>0THENGOSUB5615
  743. 5575 GOSUB5600
  744. 5580 PRINT"[156][195]HANGE [208]LAYER [206]AMES (Y/N)"
  745. 5585 GETA$:IFA$="Y"THENGOSUB5700:GOTO8000
  746. 5590 IFA$="N"THEN8000
  747. 5595 GOTO5585
  748. 5600 FORA=1TOP:PRINTPC$(A)A;P$(A):NEXTA:RETURN
  749. 5615 PRINT"[215][193][210][206][201][206][199] --- [196]ISK ERROR DETECTED :"
  750. 5620 PRINT:PRINTE;E$;T;S
  751. 5625 PRINT"[212]HIS SAVED GAME [205][193][217] NOT WORK!":PRINT:GOSUB9450:RETURN
  752. 5650 FORA=0TO10:PRINT"[155]"A"[158] "EM$(A):NEXTA:RETURN
  753. 5700 FORT=1TOP
  754. 5705 O$=P$(T):PRINT"[208]LAYER "T" IS ";:INPUTP$(T)
  755. 5710 IFLEN(P$(T))>11THENPRINTCHR$(13)"[206]AME TOO LONG[158]":GOSUB7000:GOTO5705
  756. 5715 FORZA=1TOW:IFWO$(ZA)=O$THENWO$(ZA)=P$(T)
  757. 5720 NEXTZA
  758. 5725 FORZA=1TOFL:IFFL$(ZA)=O$THENFL$(ZA)=P$(T)
  759. 5730 NEXTZA,T
  760. 5735 RETURN
  761. 6000 PRINT"[147][150][211]OUND [212]EST [205]ENU"
  762. 6005 PRINT"[154][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":GOSUB7080
  763. 6010 PRINT"[158][198]1 [194]ING-[194]ONG ("CHR$(34)"NOT ON MAP"CHR$(34)")"
  764. 6015 PRINT"[158][198]3 [194]LEEPS ([215]RONG [203]EY)"
  765. 6020 PRINT"[158][198]5 [210]ED [193]LERT (INCOMING FLEETS)"
  766. 6025 PRINT"[158][198]7 [210]EAD [207]UT ([211][204][207][215] MESSAGES)"
  767. 6030 PRINT"[158][198]2 [195]OMPUTER-[197]MPIRE [193]LERT"
  768. 6035 PRINT"[158][198]4 [196]EATH [193]LERT ([211]PACE [208]IRATES)"
  769. 6040 PRINT"[158][198]6 [193]DD [215]ORLD [211]OUND"
  770. 6045 PRINT"[158][198]8 [210]EMOVE [215]ORLD [211]OUND"
  771. 6050 PRINT"[158]_ [197][216][201][212][160]THE SOUND TEST"
  772. 6100 GETA$:IFA$="_"THEN150
  773. 6105 IFA$=CHR$(133)THENGOSUB7000
  774. 6110 IFA$=CHR$(134)THENGOSUB7025
  775. 6115 IFA$=CHR$(135)THENGOSUB7045
  776. 6120 IFA$=CHR$(136)THENGOSUB7065:FORG=1TO10:GOSUB7070:NEXTG
  777. 6125 IFA$=CHR$(137)THENGOSUB7100
  778. 6130 IFA$=CHR$(138)THENGOSUB7150
  779. 6135 IFA$=CHR$(139)THENGOSUB7170
  780. 6140 IFA$=CHR$(140)THENGOSUB7185
  781. 6200 GOTO6100
  782. 7000 GOSUB7080:POKE54296,8:POKE54277,9:POKE54278,9:POKE54276,32
  783. 7005 FORZT=1TO2
  784. 7010 POKE54273,15:POKE54276,33:FORQ=1TO100:NEXTQ:POKE54276,32:FORS=1TO25:NEXTS
  785. 7015 POKE54273,10:POKE54276,33:FORQ=1TO100:NEXTQ:POKE54276,32:FORS=1TO25:NEXTS
  786. 7020 NEXTZT:RETURN
  787. 7025 GOSUB7080:POKE54277,7:POKE54278,15:POKE54276,16
  788. 7030 FORK=1TO2:POKE54273,40:POKE54276,17:FORQ=1TO50:NEXTQ:POKE54276,16
  789. 7035 POKE54273,20:POKE54276,17:FORQ=1TO50:NEXTQ:POKE54276,16:POKE54273,0
  790. 7040 FORH=1TO50:NEXTH,K:RETURN
  791. 7045 GOSUB7080:POKE54277,0:POKE54278,240:POKE54276,16
  792. 7050 FORF=1TO2:POKE53280,2
  793. 7055 POKE54276,17:FORQ=20TO100STEP1.1:POKE54273,Q:NEXTQ:POKE54276,16:POKE54273,0
  794. 7060 POKE53280,0:FORR=1TO100:NEXTR,F:RETURN
  795. 7065 GOSUB7080:POKE54284,0:POKE54285,112:POKE54283,64:POKE54282,1:POKE54280,100
  796. 7070 POKE54283,65:POKE54283,64
  797. 7075 RETURN
  798. 7080 FORF=54272TO54296:POKEF,0:NEXTF:POKE54296,15:RETURN
  799. 7100 POKE54277,0:POKE54278,240:POKE54276,17
  800. 7105 FOREE=1TO3:POKE54273,15:POKE53280,6:FORFF=1TO80:NEXTFF
  801. 7110 POKE54273,10:POKE53280,4:FORFF=1TO40:NEXTFF,EE:POKE54276,16:POKE53280,0
  802. 7115 RETURN
  803. 7150 POKE54277,0:POKE54278,240:POKE54276,16
  804. 7155 FORFF=1TO3:FOREE=1TO40:POKE54273,10:POKE54287,EE:POKE53280,10:POKE54276,21
  805. 7160 NEXTEE:POKE54276,16:POKE53280,0:NEXTFF
  806. 7165 RETURN
  807. 7170 GOSUB7080:POKE54277,0:POKE54278,240:POKE54276,33
  808. 7175 FORG=255TO0STEP-15:POKE54273,G:NEXTG
  809. 7180 POKE54273,0:POKE54276,32:RETURN
  810. 7185 GOSUB7080:POKE54277,0:POKE54278,240:POKE54276,33
  811. 7190 FORG=0TO255STEP15:POKE54273,G:NEXTG
  812. 7195 POKE54273,0:POKE54276,32:RETURN
  813. 8000 PRINT"[147][150]"SPC(9)" [199]AME OPTIONS MENU :":X=0:Y=40
  814. 8001 X=0:Y=40
  815. 8005 PRINT"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  816. 8010 PRINT:PRINTSPC(5)"[158][210]   [210]ETURN TO [197]DITING"
  817. 8011 PRINT:PRINTSPC(5)"[158][197]   [197]NTER [205][193][201][206] [205]ENU"
  818. 8015 IFPEEK(253)AND16THENX$="FAST":GOTO8025
  819. 8020 X$="SLOW"
  820. 8025 PRINT:PRINTSPC(5)"[158][205]   [205]ESSAGE SPEED IS [154]"X$
  821. 8030 PRINT:PRINTSPC(5)"[158][195]   [195]HANGE YEARS"
  822. 8032 A=PEEK(254):PRINT:PRINTSPC(5)"[158][199]   [211]ET [199]AME [199]OAL ([154]"A")
  823. 8035 [153]:[153][166]5)"SYSATN   ATNLTER ATTACK MODE"
  824. 8040 [139][194](253)[175]1[167]X$[178]"ON":[137]8050
  825. 8045 X$[178]"OFF"
  826. 8050 [153]:[153][166]5)"SYSASC   (null)EUTRAL FACTORIES ARECONT "X$
  827. 8055 [139][194](253)[175]4[167]X$[178]"OFF":[137]8065
  828. 8060 X$[178]"ON"
  829. 8065 [153]:[153][166]5)"SYS(null)   (null)URN PIRATES CONT"X$
  830. 8070 [139][194](253)[175]2[167]X$[178]"OFF":[137]8080
  831. 8075 X$[178]"ON"
  832. 8080 [153]:[153][166]5)"SYSPEEK   (null)URN EMPIRES CONT"X$
  833. 8085 [153]:[153][166]5)"SYS(null)   (null)AVE THIS GAME."
  834. 8090 [153]:[153][166]5)"SYS(null)   (null)OAD A GAME.";
  835. 8095 [161]A$:[139]A$[178]"L"[167]5500
  836. 8100 [139]A$[178]"R"[167]370
  837. 8101 [139]A$[178]"E"[167]8300
  838. 8105 [139]A$[178]"A"[167]8205
  839. 8110 [139]A$[178]"F"[167]8175
  840. 8115 [139]A$[178]"P"[167]8185
  841. 8120 [139]A$[178]"B"[167]8195
  842. 8122 [139]A$[178]"G"[167][141]9500:[137]8000
  843. 8125 [139]A$[178]"M"[167]8245
  844. 8130 [139]A$[178]"C"[167]8360
  845. 8135 [139]A$[178]"S"[167]5070
  846. 8140 X[178]X[170]1:Y[178]Y[171]1
  847. 8141 [139]Y[179]20[167]Y[178]40
  848. 8142 [139]X[177]20[167]X[178]0
  849. 8143 [151]55376[170]X,[181]([187](1)[172]15)[170]1
  850. 8144 [151]55376[170]Y,[181]([187](1)[172]15)[170]1
  851. 8145 [137]8095
  852. 8150 [153]"LOADLIST(null)HERE WERE TO BE "YM" YEARS IN THE GAME."
  853. 8155 Y[178]YR[170]1
  854. 8160 [153]"VALNTER NEW # OF YEARS ("Y"-???)":[133]YM
  855. 8165 [139]YM[179]Y[167]8160
  856. 8170 [137]8360
  857. 8175 [139][194](253)[175]1[167][151]253,[194](253)[175]254:[137]8000
  858. 8180 [151]253,[194](253)[176]1:[137]8000
  859. 8185 [139][194](253)[175]4[167][151]253,[194](253)[175]251:[137]8000
  860. 8190 [151]253,[194](253)[176]4:[137]8000
  861. 8195 [139][194](253)[175]2[167][151]253,[194](253)[175]253:[137]8000
  862. 8200 [151]253,[194](253)[176]2:[141]9300:[137]8000
  863. 8205 PF[178]PF[170]1:[139]PF[177]2[167]PF[178]1
  864. 8210 [145]PF[137]8215,8220
  865. 8215 [151]253,[194](253)[176]8:[137]8225
  866. 8220 [151]253,[194](253)[175]247
  867. 8225 [139][194](253)[175]8[167]X$[178]"(null)ANDOM":[137]8235
  868. 8230 X$[178]"(null)ROPORTIONAL"
  869. 8235 [153]"LOADLIST"[166]5)"ATNTTACK MODE IS NOW"
  870. 8240 [153]"DEF"[166]8)X$:[153]:[141]9400:[137]8000
  871. 8245 [139][194](253)[175]16[167][151]253,[194](253)[175]239:[137]8000
  872. 8250 [151]253,[194](253)[176]16:[137]8000
  873. 8255 [128]
  874. 8300 [153]"LOAD DEF         ":[151]53280,2
  875. 8305 [153]"  (null)ATN(null)(null)RIGHT$(null)CHR$ WAITLIST RIGHT$F YOU RETURN TO THE MAIN"
  876. 8310 [153]" DEF         WAITLIST MENU, THIS ENTIRE STAR"
  877. 8315 [153][166]11)"SYSTEM WILL BE RIGHT$(null)(null)VALLEN(null)(null)VAL(null)ATNPEEK(null)(null)"
  878. 8320 [153][166]11)"LISTLOST.  RIGHT$F YOU WANT TO KEEP"
  879. 8325 [153][166]11)"IT, YOU'D BETTER HIT SYS(null)LIST NOW"
  880. 8330 [153][166]11)"AND OPEN(null)ATN(null)VALLIST IT."
  881. 8335 [153]"(null)VAL(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null)..."
  882. 8340 [153]""[166]9)"OPENATNRE YOU (null)(null)(null)VAL?"
  883. 8345 [161]A$:[139]A$[178]"N"[167][151]53280,0:[137]8000
  884. 8350 [139]A$[178]"Y"[167][151]53280,0:[137]145
  885. 8355 [137]8345
  886. 8360 [153]"LOADFORRIGHT$T IS NOW YEAR "YR".
  887. 8365 PRINT"  [158][193][156]DD YEAR (ALSO ADD SHIPS TO WORLDS)"
  888. 8370 PRINT"  [158][206][156]EW [217]EAR"
  889. 8375 PRINT"  [158][211][156]ET [197]NDING [217]EAR ("YM"[156])"
  890. 8376 PRINT"  [158][210][156]ETURN TO [207]PTIONS [205]ENU"
  891. 8380 GETA$:IFA$="S"THEN8150
  892. 8385 IFA$="N"THEN8400
  893. 8390 IFA$="A"THEN8415
  894. 8391 IFA$="R"THEN8000
  895. 8395 GOTO8380
  896. 8400 PRINT"[212]HE [217]EAR [201]S (0-"YM")";:INPUTY
  897. 8405 IFY<0ORY>YMTHENGOSUB7000:GOTO8360
  898. 8410 YR=INT(Y):GOTO8360
  899. 8415 YR=YR+1:IFYR=>YMTHENYM=YR+1
  900. 8420 FORG=1TOW:IF(PEEK(253)AND1)=1THEN8430
  901. 8425 IFWA%(G)=1THENWS%(G)=WS%(G)+WP%(G):GOTO8435
  902. 8430 WS%(G)=WS%(G)+WP%(G)
  903. 8435 NEXTG:GOTO8360
  904. 8999 END
  905. 9000 PRINT"[147][151][176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  906. 9005 FORT=1TO11:PRINT"[171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]":NEXTT
  907. 9010 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]":RETURN
  908. 9015 X=13:Y=0:GOSUB9200:PRINT"[215] [208]R [211]HP  [215] [208]R [211]HP  [215] [208]R [211]HP  [215] [208]R [211]HP "
  909. 9020 IFW=0THENRETURN
  910. 9021 FORT=1TO8:POKE646,WE%(T):X=T+13:Y=0:GOSUB9200:PRINT"         "
  911. 9022 IFW<TTHENNEXTT:GOTO9120
  912. 9025 X=13+T:Y=0:GOSUB9200:IFWA%(T)=1THEN9035
  913. 9030 PRINTWR$(T)WP%(T):X=T+13:Y=4:GOSUB9200:PRINTWS%(T):GOTO9040
  914. 9035 PRINT""WR$(T)WP%(T)" ":X=13+T:Y=4:GOSUB9200:PRINT""WS%(T)
  915. 9036 IFABS(WP%(T))<10THENX=13+T:Y=3:GOSUB9200:PRINT" "
  916. 9040 NEXTT
  917. 9045 FORT=1TO8:POKE646,WE%(T+8):X=T+13:Y=10:GOSUB9200:PRINT"         "
  918. 9046 IFW<(T+8)THENNEXTT:GOTO9120
  919. 9050 X=13+T:Y=10:GOSUB9200:IFWA%(T+8)=1THEN9060
  920. 9055 PRINTWR$(T+8)WP%(T+8):X=T+13:Y=14:GOSUB9200:PRINTWS%(T+8):GOTO9065
  921. 9060 PRINT""WR$(T+8)WP%(T+8)" ":X=13+T:Y=14:GOSUB9200:PRINT""WS%(T+8)
  922. 9061 IFABS(WP%(T+8))<10THENX=13+T:Y=13:GOSUB9200:PRINT" "
  923. 9065 NEXTT
  924. 9070 FORT=1TO9:POKE646,WE%(T+16):X=T+13:Y=20:GOSUB9200:PRINT"         "
  925. 9071 IFW<(T+16)THENNEXTT:GOTO9120
  926. 9075 X=13+T:Y=20:GOSUB9200:IFWA%(T+16)=1THEN9085
  927. 9080 PRINTWR$(T+16)WP%(T+16):X=13+T:Y=24:GOSUB9200:PRINTWS%(T+16):GOTO9090
  928. 9085 PRINT""WR$(T+16)WP%(T+16)" ":X=13+T:Y=24:GOSUB9200:PRINT""WS%(T+16)
  929. 9086 IFABS(WP%(T+16))<10THENX=13+T:Y=23:GOSUB9200:PRINT" "
  930. 9090 NEXTT
  931. 9095 FORT=1TO9:POKE646,WE%(T+25):X=T+13:Y=30:GOSUB9200:PRINT"         "
  932. 9096 IFW<(T+25)THENNEXTT:GOTO9120
  933. 9100 X=13+T:Y=30:GOSUB9200:IFWA%(T+25)=1THEN9110
  934. 9105 PRINTWR$(T+25)WP%(T+25):X=T+13:Y=34:GOSUB9200:PRINTWS%(T+25):GOTO9115
  935. 9110 PRINT""WR$(T+25)WP%(T+25)" ":X=13+T:Y=34:GOSUB9200:PRINT""WS%(T+25)
  936. 9111 IFABS(WP%(T+25))<10THENX=13+T:Y=33:GOSUB9200:PRINT" "
  937. 9115 NEXTT
  938. 9120 FORX=1TOW:POKE781,WX%(X):POKE782,WY%(X):POKE646,WE%(X):SYS251:SYS65520
  939. 9125 PRINTWR$(X):NEXTX:RETURN
  940. 9130 X=14:Y=0:GOSUB9200:PRINT"                                       ":RETURN
  941. 9200 POKE781,X:POKE782,Y:SYS251:SYS65520:RETURN
  942. 9205 RESTORE:FORG=1TO34:READWR$(G):NEXTG:RETURN
  943. 9250 X=22:Y=0:GOSUB9200:PRINT"                   "
  944. 9255 PRINT"                                       "
  945. 9260 PRINT"                                       ";
  946. 9265 X=22:Y=0:GOSUB9200:RETURN
  947. 9270 X=20:Y=0:GOSUB9200:FORM=1TO4:PRINT"                                       "
  948. 9275 NEXTM:PRINT"                                       ";
  949. 9280 X=20:Y=0:GOSUB9200:RETURN
  950. 9300 PRINT"[195]URRENT FLEET [197]FFICIENCY IS:"
  951. 9305 CP%=10:POKE650,128
  952. 9310 PRINT"[155][208]RESS  [150]+[155]  TO RAISE IT"
  953. 9315 PRINT"[208]RESS  [150]-[155]  TO LOWER IT"
  954. 9320 PRINT"[208]RESS [129][210][197][212][213][210][206] WHEN FINISHED."
  955. 9325 GETA$:IFA$="+"THENCP%=CP%+1:IFCP%>20THENCP%=20
  956. 9330 IFA$="-"THENCP%=CP%-1:IFCP%<1THENCP%=1
  957. 9335 IFA$=CHR$(13)THENPOKE650,0:PRINT"[147]":RETURN
  958. 9340 PRINT"[154]"SPC(9)"        "
  959. 9345 PRINT"[154]"SPC(10)(CP%*5)"%"
  960. 9350 GOTO9325
  961. 9400 PRINT"[200]IT [211]PACE TO [195]ONTINUE."
  962. 9405 GETA$:IFA$<>" "THEN9405
  963. 9410 RETURN
  964. 9450 PRINT"< HIT ANY KEY TO CONTINUE >"
  965. 9455 GETA$:IFA$=""THEN9455
  966. 9460 RETURN
  967. 9500 PRINT"[147][155] [212]HE GAMES WINNER WILL HAVE :"
  968. 9505 PRINT"[159] 1  [129][205]OST [215]ORLDS"
  969. 9510 PRINT"[159] 2  [129][205]OST [211]HIPS"
  970. 9515 PRINT"[159] 3  [129][199]REATEST [208]RODUCTION"
  971. 9520 PRINT"[159] 4  [129][200]IGHEST [212]OTAL [193]VERAGE"
  972. 9525 PRINT"[159] 5  [129][200]IGHEST [201]NDUSTRIAL [193]VERAGE (2 & 3)"
  973. 9530 PRINT"[159] 6  [129][199]REATEST [208]OLITICAL [208]OWER (1 & 2)"
  974. 9535 GETA$:IFA$=""THEN9535
  975. 9540 A=VAL(A$):IFA<1ORA>6THEN9535
  976. 9545 POKE254,A:RETURN
  977. 9600 IFC=0THENC$="[144]"
  978. 9605 IFC=1THENC$=""
  979. 9610 IFC=2THENC$=""
  980. 9615 IFC=3THENC$="[159]"
  981. 9620 IFC=4THENC$="[156]"
  982. 9625 IFC=5THENC$=""
  983. 9630 IFC=6THENC$=""
  984. 9635 IFC=7THENC$="[158]"
  985. 9640 IFC=8THENC$="[129]"
  986. 9645 IFC=9THENC$="[149]"
  987. 9650 IFC=10THENC$="[150]"
  988. 9655 IFC=11THENC$="[151]"
  989. 9660 IFC=12THENC$="[152]"
  990. 9665 IFC=13THENC$="[153]"
  991. 9670 IFC=14THENC$="[154]"
  992. 9675 IFC=15THENC$="[155]"
  993. 9680 RETURN
  994. 10000 DATAA,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
  995. 10005 DATA\,^,_,-,+,@,*,=
  996. 40000 DATAA,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
  997. 40005 DATA\,^,_,-,+,@,*,=
  998. 50000 OPEN15,8,15,"S:SF CON SET":CLOSE15
  999. 50005 SAVE"SF CON SET",8
  1000. 50010 VERIFY"SF CON SET",8
  1001.